Some leaflet tiles

library(rstatatools)
#> Registered S3 method overwritten by 'quantmod':
#>   method            from
#>   as.zoo.data.frame zoo

Tiandi Map

locsf is a sf class object.

library(leaflet)
library(leafem)
library(rstatatools)
library(sf)
#> Linking to GEOS 3.8.1, GDAL 3.1.2, PROJ 7.1.0
leaflet() %>%
  tdtmap(type = "terrain") %>%
  addFeatures(locsf, weight = 0.1, radius = 0.1)

To add annotion on Tiandi map, use:

leaflet() %>%
  tdtmap(type = "terrain") %>%
  tdtmap_annotion() %>% 
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

GaoDe Map

leaflet() %>%
  gdmap() %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Annotion:

leaflet() %>%
  gdmap(type = "satellite") %>%
  gdmap_annotion() %>% 
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Geoq Map

Normal:

leaflet() %>%
  geoqmap() %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

PurplishBlue:

leaflet() %>%
  geoqmap(type = "PurplishBlue") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Gray:

leaflet() %>%
  geoqmap(type = "Gray") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Warm:

leaflet() %>%
  geoqmap(type = "Warm") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

ENG:

leaflet() %>%
  geoqmap(type = "ENG") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

LabelAndBoundaryLine:

leaflet() %>%
  geoqmap(type = "LabelAndBoundaryLine") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Subway:

leaflet() %>%
  geoqmap(type = "Subway") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

WorldHydroMap:

leaflet() %>%
  geoqmap(type = "WorldHydroMap") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Gray_OnlySymbol:

leaflet() %>%
  geoqmap(type = "Gray_OnlySymbol") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Gray_Reference:

leaflet() %>%
  geoqmap(type = "Gray_Reference") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

PurplishBlue_OnlySymbol:

leaflet() %>%
  geoqmap(type = "PurplishBlue_OnlySymbol") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

PurplishBlue_Reference:

leaflet() %>%
  geoqmap(type = "PurplishBlue_Reference") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Warm_OnlySymbol:

leaflet() %>%
  geoqmap(type = "Warm_OnlySymbol") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")

Warm_Reference:

leaflet() %>%
  geoqmap(type = "Warm_Reference") %>%
  addFeatures(locsf, weight = 0.1, 
              radius = 0.1, color = "red")